home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / db3ledge / enterchk.prg < prev    next >
Encoding:
Text File  |  1986-01-12  |  2.8 KB  |  133 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. ******************* ENTERCHK.PRG---JAY KENNEY
  4. RESTORE FROM DEPO
  5. CLEAR
  6. SET BELL OFF
  7. USE LEDGER
  8. GO BOTT
  9. STORE '  /  /  ' TO XTRA
  10. STORE DTOC(CKDATE) TO XTRA
  11. STORE 0.00 TO MAMTCHK
  12. STORE 0.00 TO WRITE
  13. DO WHILE .T.
  14. GO TOP
  15. SET CONFIRM ON
  16. STORE 0 TO MCHKNO
  17. STORE '    ' TO MACCT
  18. STORE '        ' TO MDATE
  19. STORE '                    ' TO MDES
  20. STORE '    ' TO MACCT
  21. STORE '                         ' TO MWHOM
  22. STORE '               ' TO MWHY
  23. STORE '        ' TO MCKDATE
  24. SUM AMTCHK TO WRITE
  25. GO BOTT
  26. STORE 0.00 TO MDEPO
  27. STORE CHKNO TO MCHKNO
  28. STORE WHOM TO MWHOM
  29. STORE AMTCHK TO MAMTCHK
  30. STORE (DEPO-WRITE) TO MDEPO
  31. SET EXACT ON
  32. CLEAR
  33. IF SUBSTR(XTRA,4,1)='2'
  34. @ 1,1 SAY [Be sure to close out the month if finished.....and after ì
  35. you have printed.]
  36. ENDIF
  37. @ 8,15 SAY 'Last entered # '+STR(MCHKNO,4,0)+'  for ì
  38. $'+STR(MAMTCHK,8,2)+' to '+MWHOM
  39. @ 12,29 SAY [Balance: $ ]+STR(MDEPO,9,2)
  40. @ 15,1 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
  41. ~~~~~~~~~~~'
  42. @ 17,25 SAY 'Do you want to enter a check? '
  43. ?
  44. ?
  45. STORE ' ' TO OPTION
  46. WAIT '                                      ' TO OPTION
  47. IF OPTION='N'
  48. RETURN
  49. ENDIF
  50. IF OPTION='Y'
  51. CLEAR
  52. @ 1,27 SAY 'Last entered #'
  53. @ 1,39 SAY MCHKNO
  54. SET DELIM OFF
  55. STORE 0 TO MCHKNO
  56. STORE CHR(176) TO G
  57. ?
  58. ?
  59. ?
  60. ? '                       ì
  61. '+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+ì
  62. G
  63. @ 6,23 SAY G
  64. @ 6,25 SAY 'Enter check number ' GET MCHKNO
  65. @ 6,55 SAY G
  66. ? '                       ì
  67. '+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+ì
  68. G
  69. READ
  70. CLEAR
  71. @ 1,28 SAY 'Check #'
  72. @ 1,36 SAY MCHKNO
  73. ?
  74. ?
  75. ?
  76. ? '                       ì
  77. '+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G
  78. @ 6,23 SAY G
  79. @ 6,25 SAY 'Enter account number ' GET MACCT
  80. @ 6,51 SAY G
  81. ? '                       ì
  82. '+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G
  83. READ
  84. IF MACCT='    '
  85. LOOP
  86. ENDIF
  87. CLEAR
  88. SET EXACT ON
  89. USE ACCT INDEX ACT
  90. FIND &MACCT
  91. IF EOF() .AND. ACCT<>'VOID'
  92. @ 15,25 SAY "I CAN'T FIND A # &MACCT ACCOUNT..."
  93. ? CHR(7)
  94. USE LEDGER
  95. LOOP
  96. ENDIF
  97. STORE ACCTDESC TO MDES
  98. @ 23,32 SAY 'Just a moment '
  99. USE LEDGER
  100. CLEAR
  101. TYPE BOX1.TXT
  102. APPEND BLANK
  103. @ 3,46 SAY 'Check #'
  104. @ 3,55 SAY STR(MCHKNO,4,0)
  105. @ 3,11 SAY 'Date(mo/day/85) ' GET CKDATE PICTURE '99/99/99'
  106. @ 5,20 SAY 'Payable to: ' GET WHOM
  107. @ 8,20 SAY 'Enter total amount of check ' GET AMTCHK
  108. READ
  109. STORE AMTCHK TO MAMT
  110. STORE RECNO() TO RECNO
  111. REPLACE ACCTDESC WITH MDES
  112. REPLACE ACCT WITH MACCT
  113. REPLACE CHKNO WITH MCHKNO
  114. STORE 0 TO T
  115. STORE LEN(MDES) TO T
  116. S=T/2
  117. STORE (80-T)/2 TO T
  118. @ 12,T SAY MDES
  119. @ 19,30 SAY 'Is this correct?'
  120. @ 21,24 SAY ' '
  121. WAIT '                                     ' TO OPTION
  122. IF OPTION='N'
  123. CLEA
  124. @ 15,25 SAY 'Press Ctrl W when finished'
  125. EDIT
  126. ENDIF
  127. ENDIF
  128. SET CONFIRM OFF
  129. CLEAR
  130. ENDDO
  131. RETURN
  132.  
  133.